Option Explicit
Sub A_Sample035()
    Dim myRng1 As Range
    Dim myRng2 As Range
    Set myRng1 = Range("C4")        'Nxs
    'ǳƨ즹
    Set myRng2 = myRng1.EntireColumn
    MsgBox myRng2.Address
    Set myRng1 = Nothing            '
    Set myRng2 = Nothing
End Sub

